home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #110 (1991-01)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #110 (1991-01)(Amiga User Group Deutschland e.V.).adf / DiskLabel_V1.0 / Inh._Fish_221-360 / DiskLabel.bas < prev    next >
BASIC Source File  |  1989-07-03  |  4KB  |  211 lines
  1. REM DiskLabel V1.0. Written by Christian Koot in 1990
  2. WINDOW 3 , "  Disklabel V1.0. (c) Christian Koot 1990" ,, 28
  3. GOTO Hilfe
  4. Steuerung:
  5. PRINT
  6. PRINT" Wie geht´s weiter? (Möglichkeiten mit <HELP>):"
  7. GOTO Hauptteil
  8. Hauptteil:
  9. IF INKEY$ = "ä" THEN GOTO Aenderung
  10. IF INKEY$ = "e" THEN GOTO Eingabe
  11. IF INKEY$ = "a" THEN GOTO Anzeige
  12. IF INKEY$ = "d" THEN GOTO Druck
  13. IF INKEY$ = "f" THEN GOTO Diskoperationen
  14. IF INKEY$ = "i" THEN GOTO Infos
  15. IF INKEY$ = CHR$(139) THEN GOTO Hilfe
  16. GOTO Hauptteil
  17. Eingabe:
  18. CLS
  19. INPUT "    Diskname: " , label$
  20. PRINT
  21. INPUT "1: " , a$
  22. INPUT "2: " , b$
  23. INPUT "3: " , c$
  24. INPUT "4: " , d$
  25. INPUT "5: " , e$
  26. INPUT "6: " , f$
  27. INPUT "7: " , g$
  28. INPUT "8: " , h$
  29. GOTO Steuerung
  30. Aenderung:
  31. CLS
  32. INPUT "Welche Eingabe wollen Sie ändern? (1-8 bzw. Diskname)" , alter$
  33. IF alter$ = "1" THEN GOTO Einae
  34. IF alter$ = "2" THEN GOTO Zweae
  35. IF alter$ = "3" THEN GOTO Dreae
  36. IF alter$ = "4" THEN GOTO Vieae
  37. IF alter$ = "5" THEN GOTO Fueae
  38. IF alter$ = "6" THEN GOTO Secae
  39. IF alter$ = "7" THEN GOTO Sieae
  40. IF alter$ = "8" THEN GOTO Achae
  41. IF alter$ = "Diskname" THEN GOTO Disae
  42. GOTO Aenderung
  43. Einae:
  44. PRINT
  45. PRINT "Alter PRG.Name: " ; a$
  46. PRINT
  47. INPUT "Neuer PRG.Name: " , a$
  48. GOTO Frage
  49. Frage:
  50. PRINT
  51. PRINT
  52. INPUT "Wollen Sie nochwas ändern? (j/n) " , quest$
  53. IF quest$ = "j" THEN GOTO Aenderung
  54. IF quest$ = "n" THEN GOTO Steuerung
  55. GOTO Frage
  56. Zweae:
  57. PRINT
  58. PRINT "Alter PRG.Name: " ; b$
  59. PRINT
  60. INPUT "Neuer PRG.Name: " , b$
  61. GOTO Frage
  62. Dreae:
  63. PRINT
  64. PRINT "Alter PRG.Name: " ; c$
  65. PRINT
  66. INPUT "Neuer PRG.Name: " , c$
  67. GOTO Frage
  68. Vieae:
  69. PRINT
  70. PRINT "Alter PRG.Name: " ; d$
  71. PRINT
  72. INPUT "Neuer PRG.Name: " , d$
  73. GOTO Frage
  74. Fueae:
  75. PRINT
  76. PRINT "Alter PRG.Name: " ; e$
  77. PRINT
  78. INPUT "Neuer PRG.Name: " , e$
  79. GOTO Frage
  80. Secae:
  81. PRINT
  82. PRINT "Alter PRG.Name: " ; f$
  83. PRINT
  84. INPUT "Neuer PRG.Name: " , f$
  85. GOTO Frage
  86. Sieae:
  87. PRINT
  88. PRINT "Alter PRG.Name: " ; g$
  89. PRINT
  90. INPUT "Neuer PRG.Name: " , g$
  91. GOTO Frage
  92. Achae:
  93. PRINT
  94. PRINT "Alter PRG.Name: " ; h$
  95. PRINT
  96. INPUT "Neuer PRG.Name: " , h$
  97. GOTO Frage
  98. Disae:
  99. PRINT
  100. PRINT "Alter Diskname: " ; label$
  101. PRINT
  102. INPUT "Neuer Diskname: " , label$
  103. GOTO Frage
  104. Anzeige:
  105. CLS
  106. PRINT
  107. PRINT"     Diskname: " ; label$
  108. PRINT
  109. PRINT" 1: " ; a$
  110. PRINT" 2: " ; b$
  111. PRINT" 3: " ; c$
  112. PRINT" 4: " ; d$
  113. PRINT" 5: " ; e$
  114. PRINT" 6: " ; f$
  115. PRINT" 7: " ; g$
  116. PRINT" 8: " ; h$
  117. GOTO Steuerung
  118. Druck:
  119. LPRINT"    " ; label$
  120. LPRINT
  121. LPRINT"" ; a$
  122. LPRINT"" ; b$
  123. LPRINT"" ; c$
  124. LPRINT"" ; d$
  125. LPRINT"" ; e$
  126. LPRINT"" ; f$
  127. LPRINT"" ; g$
  128. LPRINT"" ; h$
  129. GOTO Anzeige
  130. Infos:
  131. CLS
  132. PRINT" DiskLabel 1.0 darf in jede PD-Serie aufgenommen werden, sofern ich davon"
  133. PRINT
  134. PRINT" schriftlich in Kenntnis gesetzt werde. Dieses Programm und seine Begleit-"
  135. PRINT
  136. PRINT" files müssen unverändert und vollständig übernommen werden. Dieses Prog-"
  137. PRINT
  138. PRINT" ist, wie gesagt, zum schnellen und unkomplizierten Bedrucken von Labels"
  139. PRINT
  140. PRINT" von 3,5 Zoll Disks gedacht und daher kann man es mit anderen Programmen"
  141. PRINT
  142. PRINT" in den Punkten Aufmachung und Funktionen nicht verglichen werden. Auf je-"
  143. PRINT
  144. PRINT" den Fall ist es unglaublich billig, da es PD ist. Für Verbesserungsvor-"
  145. PRINT
  146. PRINT" schläge, Tips und Fehlermeldungen bin ich jederzeit dankbar. Meine Adresse:"
  147. PRINT
  148. PRINT
  149. PRINT"        Christian Koot"
  150. PRINT"        Neißeweg 38"
  151. PRINT"   3588 Homberg/Efze"
  152. GOTO Steuerung:
  153. Hilfe:
  154. CLS
  155. PRINT" ä      - Eingaben ändern"
  156. PRINT" e      - Total neue Eingaben"
  157. PRINT" a      - Eingaben anzeigen"
  158. PRINT" d      - Drucken"
  159. PRINT" f      - Diskoperationen"
  160. PRINT" i      - Infos"
  161. PRINT" <HELP> - Hilfe"
  162. PRINT
  163. PRINT" Ihre Wahl:"
  164. GOTO Steuerung
  165. Diskoperationen:
  166. CLS
  167. INPUT " Wollen Sie Laden oder Speichern? (l/s) " , weg$
  168. IF weg$ = "s" THEN GOTO Speichern
  169. IF weg$ = "l" THEN GOTO Laden
  170. GOTO Diskoperationen
  171. Speichern:
  172. PRINT
  173. INPUT " Geben Sie das Verzeichnis an: " , spfad$
  174. CHDIR spfad$
  175. PRINT
  176. PRINT " Die Daten zu " ; label$ ; " werden gespeichert."
  177. OPEN label$ FOR OUTPUT AS 1
  178. PRINT #1, label$
  179. PRINT #1, a$
  180. PRINT #1, b$
  181. PRINT #1, c$
  182. PRINT #1, d$
  183. PRINT #1, e$
  184. PRINT #1, f$
  185. PRINT #1, g$
  186. PRINT #1, h$
  187. GOTO Steuerung
  188. Laden:
  189. PRINT
  190. INPUT " Geben Sie das Verzeichnis an: " , lpfad$
  191. CHDIR lpfad$
  192. PRINT
  193. PRINT
  194. INPUT " Geben Sie den Dateinamen an : " , lad$
  195. OPEN lad$ FOR INPUT AS 1
  196. LINE INPUT #1, label$
  197. LINE INPUT #1, a$
  198. LINE INPUT #1, b$
  199. LINE INPUT #1, c$
  200. LINE INPUT #1, d$
  201. LINE INPUT #1, e$
  202. LINE INPUT #1, f$
  203. LINE INPUT #1, g$
  204. LINE INPUT #1, h$
  205. CLOSE 1
  206. GOTO Anzeige
  207.  
  208.  
  209.  
  210.  
  211.